object AVDoctorForm: TAVDoctorForm Left = 273 Top = 200 HelpContext = 14503 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Check Folders for viruses' ClientHeight = 465 ClientWidth = 377 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate DesignSize = ( 377 465) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 82 Height = 13 Caption = '&Folders to check:' FocusControl = mlFolders end object mlFolders: TMLVGrid Left = 8 Top = 44 Width = 360 Height = 213 ColCount = 1 Constraints.MinHeight = 20 Constraints.MinWidth = 40 DefaultRowHeight = 16 DefaultDrawing = False FixedCols = 0 RowCount = 1 FixedRows = 0 Options = [goThumbTracking] TabOrder = 0 OnKeyDown = mlFoldersKeyDown OnMouseDown = mlFoldersMouseDown AltDrag = True AutoColResize = True AutoSearch = True MultiSelect = False Header = hFolders ImmediateSelect = False OnDrawItemImage = mlFoldersDrawItemImage end object Book: TNotebook Left = 8 Top = 274 Width = 362 Height = 145 TabOrder = 1 object TPage Left = 0 Top = 0 Caption = 'Default' DesignSize = ( 362 145) object GroupBox1: TGroupBox Left = 0 Top = 40 Width = 360 Height = 89 Anchors = [akLeft, akTop, akRight] Caption = 'If a virus detected in a message' TabOrder = 2 DesignSize = ( 360 89) object Label2: TLabel Left = 16 Top = 24 Width = 33 Height = 13 Caption = '&Action:' FocusControl = cbAction end object cbAction: TComboBox Left = 88 Top = 22 Width = 264 Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 13 ItemIndex = 0 TabOrder = 0 Text = 'Remove infected parts' Items.Strings = ( 'Remove infected parts' 'Try to cure infected parts' 'Delete the message' 'Move the message to the Quarantine folder') end object cbCompress: TCheckBox Left = 16 Top = 56 Width = 336 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Compress the folder when checking is finished' Checked = True State = cbChecked TabOrder = 1 end end object bSelectAll: TButton Tag = 1 Left = 121 Top = 0 Width = 113 Height = 25 Anchors = [akTop, akRight] Caption = '&Select all' TabOrder = 0 OnClick = bSelectAllClick end object bUselectAll: TButton Left = 249 Top = 0 Width = 113 Height = 25 Anchors = [akTop, akRight] Caption = '&Unselect all' TabOrder = 1 OnClick = bSelectAllClick end end object TPage Left = 0 Top = 0 Caption = 'Progress' DesignSize = ( 362 145) object GroupBox2: TGroupBox Left = 0 Top = 0 Width = 362 Height = 145 Anchors = [akLeft, akTop, akRight] Caption = 'Progress' TabOrder = 0 DesignSize = ( 362 145) object lCurFolder: TLabel Left = 8 Top = 16 Width = 66 Height = 13 Caption = 'Current folder:' end object Label4: TLabel Left = 8 Top = 56 Width = 79 Height = 13 Caption = 'Overall progress:' end object Label6: TLabel Left = 8 Top = 104 Width = 46 Height = 13 Caption = 'Checked:' end object Label7: TLabel Left = 8 Top = 120 Width = 33 Height = 13 Caption = 'Found:' end object lChecked: TLabel Left = 104 Top = 104 Width = 246 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = '0' end object lFound: TLabel Left = 104 Top = 120 Width = 201 Height = 13 AutoSize = False Caption = '0' end object pbCurFolder: TProgressBar Left = 8 Top = 32 Width = 348 Height = 16 Anchors = [akLeft, akTop, akRight] TabOrder = 0 end object pbTotal: TProgressBar Left = 6 Top = 72 Width = 348 Height = 16 Anchors = [akLeft, akTop, akRight] TabOrder = 1 end end end object TPage Left = 0 Top = 0 Caption = 'Report' DesignSize = ( 362 145) object Label5: TLabel Left = 0 Top = 0 Width = 35 Height = 13 Caption = '&Report:' end object eLog: TMemo Left = 0 Top = 16 Width = 362 Height = 127 Anchors = [akLeft, akTop, akRight, akBottom] ReadOnly = True ScrollBars = ssBoth TabOrder = 0 WordWrap = False end end end object bStart: TButton Left = 72 Top = 432 Width = 91 Height = 25 Caption = 'Start' Default = True TabOrder = 2 OnClick = bStartClick end object bCancel: TButton Left = 176 Top = 432 Width = 91 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 OnClick = bCancelClick end object hFolders: THeaderControl Left = 8 Top = 24 Width = 359 Height = 22 Align = alNone Anchors = [akLeft, akTop, akRight] BorderWidth = 1 Sections = < item AllowClick = False ImageIndex = -1 Text = 'Name' Width = 200 end item AllowClick = False ImageIndex = -1 Text = 'Total' Width = 80 end item ImageIndex = -1 Text = 'Infected' Width = 80 end> end object bHelp: TButton Left = 280 Top = 432 Width = 91 Height = 25 Caption = 'Help' TabOrder = 5 OnClick = bHelpClick end end